00100		TITLE POTREA     
00200	
00300		ENTRY POTREA
00400	
00500	POTREA:	JUMP 0
00600	FOO:INIT 17,17
00700		SIXBIT /AD/
00800		0
00900		JRST FOO
01000		INPUT 17, IO
01100		MOVE 1,BUF
01200		TRNE 1,4000
01300		ORCMI 1,3777
01400		FSC 1,217
01500		MOVEM 1, @(16)
01600		RELEAS 17,0
01700		JRA 16,1(16)
01800	IO:	IOWD 1,BUF
01900		EXP 4150
02000		EXP 430000
02100	OTS:	Z
02200	ATD:	Z
02300	BUF:	0
02400		END